How do I push a string into IO input being called from another function in Haskell